Imports colegio
Public Class FrmBuscarPeriodosdeLicencia

    Private Sub FrmBuscarPeriodosdeLicencia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RBActivos.Checked = True
        PBuscarDocente.Visible = True
        BtnBuscar.Enabled = False
        PPeriodoLicencia.Visible = False
        BtnExel.Enabled = False
    End Sub

    Private Sub BtnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscar.Click
        LblMensajeBusqueda.Text = ""
        Dim periodolic As New List(Of Entidades.EPeriododeLicencia)
        Dim periodolicneg As New Negocios.NPeriododeLicencia
        Dim docente As New Entidades.EPersonal
        docente.Legajo = TxtLegajo.Text

        If RBActivos.Checked Then
            LstLicencias.Enabled = True
            periodolic = periodolicneg.buscarLicenciaPorLegajo(docente, True)
        ElseIf RBInactivos.Checked Then
            LstLicencias.Enabled = True
            periodolic = periodolicneg.buscarLicenciaPorLegajo(docente, False)

        ElseIf RBTodos.Checked Then
            LstLicencias.Enabled = False
            periodolic = periodolicneg.buscarLicenciaPorLegajo(docente)

        End If
        docente = Nothing
        If periodolic.Count = 0 Then
            mensajeDeBusqueda(LblMensajeBusqueda)
            DGPeriodoLicencia.Rows.Clear()
            PBuscarDocente.Visible = True
            BtnBuscar.Enabled = False
            BtnExel.Enabled = False
            Exit Sub
        End If
        BtnExel.Enabled = True
        LstLicencias.Visible = True
        LstLicencias.BeginUpdate()
        If LstLicencias.Items.Count > 0 Then LstLicencias.Items.Clear()

        For Each olicencia As Entidades.EPeriododeLicencia In periodolic
            Dim oitem As ListViewItem
            oitem = LstLicencias.Items.Add(olicencia.Legajo)
            oitem.SubItems.Add(olicencia.Titulo)
            oitem.SubItems.Add(olicencia.Capitulo)
            oitem.SubItems.Add(olicencia.Articulo)
            oitem.SubItems.Add(olicencia.FechaAlta)
            oitem.SubItems.Add(olicencia.FechaBaja)
            If olicencia.Estado Then
                DGPeriodoLicencia.Rows.Add(olicencia.Legajo, olicencia.Titulo, olicencia.Capitulo, olicencia.Articulo, olicencia.FechaAlta, olicencia.FechaBaja, "si")
                oitem.SubItems.Add("SI")
            Else
                oitem.SubItems.Add("NO")
                DGPeriodoLicencia.Rows.Add(olicencia.Legajo, olicencia.Titulo, olicencia.Capitulo, olicencia.Articulo, olicencia.FechaAlta, olicencia.FechaBaja, "no")
            End If
        Next

        LstLicencias.EndUpdate()

    End Sub
    Private Sub BtnBuscarDocente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarDocente.Click
        LblMensajeBusqueda.Text = ""
        abrirFormulario(FrmBuscarPersonal)
        operacion = 4
        Me.Hide()
    End Sub

    Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
        Close()
    End Sub

    Private Sub LstLicencias_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LstLicencias.DoubleClick
        If operacion = 1 Then
            abrirFormulario(FrmModificarPeriododeLicencia)
            FrmModificarPeriododeLicencia.PBuscarPeriodo.Visible = False
            Dim i As Integer = LstLicencias.SelectedIndices.Item(0).ToString
            FrmModificarPeriododeLicencia.TxtCodigo.Text = LstLicencias.Items(i).SubItems(0).Text
            FrmModificarPeriododeLicencia.TxtTitulo.Text = LstLicencias.Items(i).SubItems(1).Text
            FrmModificarPeriododeLicencia.TxtCapitulo.Text = LstLicencias.Items(i).SubItems(2).Text
            FrmModificarPeriododeLicencia.TxtArticulo.Text = LstLicencias.Items(i).SubItems(3).Text
            FrmModificarPeriododeLicencia.MtbFechaAlta.Text = LstLicencias.Items(i).SubItems(4).Text
            FrmModificarPeriododeLicencia.MtbFechaBaja.Text = LstLicencias.Items(i).SubItems(5).Text

            If LstLicencias.Items(i).SubItems(6).Text = "SI" Then
                FrmModificarPeriododeLicencia.CkbActivo.Checked = True
            Else
                FrmModificarPeriododeLicencia.CkbActivo.Checked = False
            End If
            operacion = 0
            Me.Close()
        End If
    End Sub

    Private Sub BtnExel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExel.Click
        CExel.ExpDGVtoExcell(Me.DGPeriodoLicencia)
    End Sub
End Class